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— SegmentDefs.Mesa Edited by Sandman on August 23, 1977 9:16 PM 

DIRECTORY 

AUoDefs: FROM "altodefs", 
AltoFileDefs: FROM "altof iledefs"; 

DEFINITIONS FROM AUoDefs, AUoFileDefs; 

SegmentDefs: DEFINITIONS = BEGIN 

FileHint: TYPE = AUoFileDefs . FH; 
Filelndex: TYPE = AUoFileDefs . FI ; 
PageCount: TYPE = AUoDefs. PageCount; 
PageNumber: TYPE = AUoDefs . PageNumber; 

-- Basic Memory Addressing: 

PagePointer: PROCEDURE [a:POINTER] RETURNS [POINTER]; 
PageFromAddress: PROCEDURE [a:POINTER] RETURNS [PageNumber]; 
AddressFromPage: PROCEDURE [p : PageNumber] RETURNS [POINTER]; 

PageFree: PROCEDURE [page: PageNumber] RETURNS [BOOLEAN]; 

PagesFree: PROCEDURE [base: PageNumber, pages: PageCount] RETURNS [BOOLEAN]; 

-- Primative System Objects: 

ObjectType: PRIVATE TYPE = {Free, Data. Segment. File}; 

ObjectHandle: PRIVATE TYPE = POINTER TO Object; 

Object: TYPE = RECORD [ 

inuse. busy: PRIVATE BOOLEAN, 
body: SELECT COMPUTED ObjectType FROM 
Free => [ 

fill: PRIVATE [0. .377778], 

link: PRIVATE POINTER TO Free Object], 
Data => [ 

pages: [1 . .MaxVMPage+1] , 

VMpage: [0 . .MaxVMPage]] . 
Segment => [ 

swappedin: BOOLEAN, 

read, write: BOOLEAN, 

class: F i leSegmentClass , 

lock : [0 . .MaxLocks] , 

pages: [1 . .MaxVMPage+1] , 

VMpage: [0. .MaxVMPage] , 

file: Fileflandle, 

base: PageNumber, 

hint: FileHint], 
File => [ 

open: BOOLEAN, 

lengthvalid: BOOLEAN, 

lengthchanged: BOOLEAN, 

read, write, append: BOOLEAN. 

lock : [0 . .MaxLocks] , 

swapcount: [0 . .MaxRefs] , 

segcount: [0 . .MaxSegs] , 

rp: FP 

eof: FA], 
ENDCASE]; 

MaxRefs: CARDINAL = 255; 
MaxLocks: CARDINAL = 255; 
MaxSegs: CARDINAI = 177777B; 
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-- Segments; 

DefauUPages: PageCount =» 0; 
DefauUBase: PageNumber = MaxFilePage; 

-- Data Segments: 

DataSegmentObject: TYPE = Data Object; 
DataSegmentHandle: TYPE = POINTER TO DataSegmentObject; 

VMNotFree: SIGNAL [base: PageNumber , pages: PageCount] ; 

NewDataSegment: PROCEDURE [base: PageNumber . pages : PageCount] RETURNS [DataSegmentHandle]; 
NewFrameSegment: PROCEDURE [pages: PageCount] RETURNS [DataSegmentHandle]; 
DeleteDataSegment: PROCEDURE [seg :DataSegmentHand1e] ; 

VMtoDataSegment: PROCEDURE [a: POINTER] RETURNS [DataSegmentHandle]; 
DataSegmentAddress: PROCEDURE [seg :DataSegmentHand1e] RETURNS [POINTER]; 

EnumerateDataSegments: PROCEDURE [ 

proc: PROCEDURE [DataSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [DataSegmentHandle]; 

-- File Segments: 

FileSegmentObject: TYPE = Segment Object; 
FileSegmentHandle: TYPE = POINTER TO FileSegmentObject; 

FileSegmentClass: TYPE - {code, symbols, bed, other}; 

Inval idSegmentSize: SIGNAL [pages : PageCount] ; 

NewFileSegment: PROCEDURE [ j^^^ * 

f ile: Fi leHandle, base: Pag^-Nunrber , pages : PageCount , access :AccessOptions] 

RETURNS [File5'?gmentHandle]; 
MoveFileSegment: PROCEDURE [seg : F i 1 eSegmen tHandle. base: PageNumber, pages: PageCount] ; 
MapFileSegment: PROCEDURE [seg: FileSegmentHandle, file: FileHandle, base: PageNumber]; 
DeleteFi leSegment: PROCEDURE [seg : F ileSegmentHandl e] ; 

VMtoFileSegment: PROCEDURE [a:POINTER] RETURNS [FileSegmentHandle]; 
FileSegmentAddress: PROCEDURE [seg : Fi leSegmen tHandle] RETURNS [POINTER]; 
GetFileSegmentDA: PROCEDURE [seg: FileSegmentHandle] RETURNS [vDA]; 
SetFileSegmentDA: PROCEDURE [seg: FileSegmentHandle, da: vDA]; 

EnumerateFileSegments: PROCEDURE [ 

proc: PROCEDURE [FileSegmentHandle] RETURNS [BOOLEAN]] 
RETURNS [FileSegmentHandle]; 

-- File Segment Swapping: 

SwapError: SIGNAL [seg : F i leSegmen tHandle] ; 

SegmentFaul t : SIGNAL [seg : Fi leSegmentHandle , pages : PageCount] ; 

SwapIn, SwapUp, SwapOut, Unlock: PROCFDURE [seg : F i leSegmen tHandle] ; 

-- Initializing File and Data Segments 

CopyDalaToFileSegment: PROCFDURE [dataseg: DataSegmentHandle, fileseg: FileSegmentHandle]; 
CopyF ileToDataSegment: PROCFDURE [Fileseg: FileSegmentHandle, dataseg: DataSegmentHandle]; 
ChangeDataToFileSegment : PROCEDURE [dataseg: DataSegmentHandle, fileseg: FileSegmentHandle]; 

-- Swap Strategies and Swapping Procedures: 

Insuffic ientVM: SIGNAL [needed : PageCount] ; 

TryCodoSwapp ing . CantSwap: Swapp i ngProcedure ; 
SwappingProcedure: TYPE = PROCrDURF RETURNS [BOOIFAN]; 

SwapSLrategy : TYPE = RECORD [ 
link: POFNTfR TO SwapS trategy , 
proc: SwappingProcedure]; 

AddSwapSLrategy: PROCFDURf [s tra tegy : POINTER TO SwapSLrategy]; 
RemoveSwapStrategy: PROCrOURf [s tra legy : POINTfR 10 SwapS tra tegy] ; 
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— Files: 

FileObject: TYPE = File Object; 
FileHandle: TYPE = POINTER TO FileObject; 

AccessOptions: TYPE = [0..7]; 
Read: AccessOptions = 1; 
Write: AccessOptions = 2; 
Append: AccessOptions = 4; 
-- Delete: AccessOptions = 8; 

VersionOptions: TYPE = [0..3]; 
NewFileOnly: VersionOptions = 1; 
OldFileOnly: VersionOptions = 2; 

Def auHAccess : AccessOptions * 0; 
Defau! tVersion: VersionOptions - 0; 

FileNameError: SIGNAL [nametSTRING] ; 

InvalidFP: SIGNAL [fpiPOINTER TO FP]; 

FileError, Fi leAccessError : SIGNAL [f i 1e : Fi leHandle] ; 

NewFile: PROCEDURE [name:STRING, access :AccessOp tions , version : VersionOptions] RETURNS [FileHandle]; 
InsertFile: PROCEDURE [fp:POINTER TO FP. access : AccessOptions] RETURNS [FileHandle]; 
OpenFile. CloseFile: PROCEDURE [f i 1 e: Fi 1 eHandle] ; 
LockFile, UnlockFile: PROCEDURE [f i le : F i leHandl e] ; 
ReleaseFile, DestroyFile: PROCEDURE [fi le: FileHandle] ; 

GetFileAccess: PROCEDURE [fi le : Fi leHandle] RETURNS [access : AccessOptions] ; 
SetFileAccess : PROCEDURE [f ile: F ileHandle, access : AccessOptions] ; 

GetEndOfFile: PROCEDURE [fi le : Fi leHandle] RETURNS [page : PageNumber . byte:CARDINAL] ; 
SetEndOfFile: PROCEDURE [fi le: Fi leHandle. page: PageNumber . by te:CARDINAL] ; 
UpdateFileLength: PROCEDURE [file: FileHandle, fa: POINTER TO FA]; 

JumpToPage: PROCEDURE [ 

cfa:POINTER TO CFA. page : PageNumber , buf:POINTER] 
RETURNS [prev,next:vDA]; 

GetFileFP: PROCEDURE [f il e: F il eHandle , Fp:POINTER TO FP]; 
FindFile: PROCEDURE [fp:POINTER TO FP] RETURNS [FileHandle]; 

EnumerateF lies : PROCEDURE [ 

proc: PROCEDURE [FileHandle] RETURNS [BOOLEAN]] 
RETURNS [f ile:FileHandle]; 

END. 



